autenticação para v...
 
Notifications
Clear all

autenticação para ver as abas

56 Posts
1 Usuários
0 Reactions
7,252 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ferreira, o ideal era ter aberto um tópico com sua duvida, mas de uma olhada no tópicoa abaixo se ajuda.

SENHA PARA VISUALIZAÇÃO DE ABAS
viewtopic.php?f=10&t=1659&hilit=login

Se realizar Busca no Forum encontrará outros exemplos.

[]s

 
Postado : 11/03/2012 8:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sim. baixei, mas eu não entendo aonde eu coloco.
Irei mandar a planilha para vc, no seu e-mail, OK

 
Postado : 15/03/2012 4:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Senha da diretoria a adiante : 111, 222, 333, 444, 555, 666, 777 vba 314988

 
Postado : 15/03/2012 5:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Isso para começar, depois vamos continuar...
Seu questionario...
1- Esconder o caminho do hiperlink, quando o mouse fica em cima da figura.
R:Click com o botão direito do mouse na figura, vá em Editar Link, click em Dica de Tela, na caixa que vai abrir digite "Click Aqui".
Quando alguém passar o mouse vai aparecer a mensagem que você digitou.

2- Congelar as telas
Application.ScreenUpdating = False ' No Início da rotina
Sua macro
Application.ScreenUpdating = True ' No Final da rotina

3- Quando abre a planilha, o hiperlink está com o caminho certo, porém não funciona, só funciona se eu entrar em cada usuario, acredito que desta forma, as abas aparecam no edit do hiperlink e funciona.

4- Estava pensando em colocar botões, para abrir e fechar grafico na tela da diretor.

o Mano Mauro, deve me ajudar a te ajudar!!! :lol:

 
Postado : 15/03/2012 5:19 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Opa.

- Sobre esconder o link, show, consegui fazer, muito simples, agradeço de coração

- Sobre congelar a tela, fiquei perdido como fazer.

- Sobre o hiperlink, esta com o caminho certo, OK, mas no 2007 ele esta funcionando da forma que eu comentei, preciso de uma luz nisso.

 
Postado : 15/03/2012 5:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Sobre congelar a tela, fiquei perdido como fazer.

Tudo que é Sub e End Sub

Sub nome da macro()
Application.ScreenUpdating = False ' No Início da rotina

Sua macro

Application.ScreenUpdating = True ' No Final da rotina
End Sub

 
Postado : 15/03/2012 5:32 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então terei que gravar uma macro para congelar, não é feito pelo VBA.

 
Postado : 15/03/2012 5:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Então terei que gravar uma macro para congelar, não é feito pelo VBA.

não!!!

dentro do Editor, em qualquer modulo ou rotina (qualquer CÓDIGO).Coloque o evento application.screenupdate

Leia
http://www.cpearson.com/excel/optimize.htm

Screen Updating

You can turn off screen updating so that Excel does not update the screen image as your code executes. This can greatly speed up your code.

Application.ScreenUpdating = FALSE

Be sure to restore the setting to True at the end of your macro. Older version of Excel would automatically restore the setting; Excel97 does not.

Att

 
Postado : 15/03/2012 6:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então coloquei o código e aonde esta coloque o macro, coloquei o nome da pasta, acho que fiz errado né.

Recebeu o e-mail?

 
Postado : 15/03/2012 6:25 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!!

Veja um dos seus códigos.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False ''No início da rotina (False)
    If TextBox1.Text = "111" Then
        TextBox1.Text = Clear
        Sheets("DIRETORIA").Visible = True
        Sheets("DIRETORIA").Select
    Else
        TextBox1.Text = Clear
        MsgBox ("Senha incorreta solicitar Sec. Técnica")

    End If
Application.ScreenUpdating = True 'No final da rotina (True)
End Sub
 
Postado : 15/03/2012 6:34 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Hum....

Então estes códigos eu copiei, bom mas eu entendi, agora, coloco o inicio, o macro no meio = que seria o bloqueio da tela e no final o código.
OK, irei ver agora o código de congela a tela.

 
Postado : 15/03/2012 6:44 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Se gostou da dica, clique na mãozinha :lol:

 
Postado : 15/03/2012 6:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigo, estou correto então nos passos a seguir.

Outra coisa, gostou da planilha que estou elaborando.

 
Postado : 15/03/2012 7:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caso vc tenha alguma idéia de melhoria, adoraria ver, e caso queira alterar algo, me passe o arquivo alterado para eu ver, Agradecido

 
Postado : 15/03/2012 7:38 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ferreira, respondendo sobre o Link que indiquei :

Disable Hyperlink Hover Info?
Estive analizando, e a mesma funciona, porem quando temos o Hyperlink em celulas e não em Shapes, assim que possivel vou pesquisar a respeito dos Shapes, então como está utilizando Shapes, o melhor por hora é utilizar a dica do Alexandre, onde você postou que ajudou e resolveu esta questão.

Agora o que não estou entendendo é o desenrolar deste tópico, referente a questão de congelar telas, em seu aplicativo tem um userform, mas não vi relação do mesmo com seu exemplo, não encontrei nenhum Botão para chamar este form.

Geralmente utilizamos a instrução "Application.ScreenUpdating = FALSE ou TRUE" quando estamos navegando por várias Abas, e as mesmas não estão com a propriedade Visible como Hidem, o que não é o caso, pois suas abas estão ocultas, mas só para exemplificar melhor, em vez de utilizarmos esta instrução em cada rotina, utilizamos a mesma na rotina onde chamamos o Formulário, ou seja, primeiro como False, depois Userfor.Show e logo abaixo como True.

Outra coisa que verifiquei é que os Botões em seu formulário estão dispostos ao lado dos textbox e as rotinas dos mesmos não correspondem a estes TextBox, por exemplo :
o "CommandButton1" está ao lado do "TextBox1", mas a rotina faz a verificação da senha digitada no "TextBox2".

[]s

 
Postado : 15/03/2012 7:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro mestre Mauro.

E fiz o código baseado no command-button, e coloquei os testbox a mão no VBA.

 
Postado : 15/03/2012 8:48 pm
Página 3 / 4